CDate(CacheData(1))，NewValue) Application.Lock Application(SetName)=NewValue Application.unLock EndSub PrivateSubmakeEmpty(SetName) Application.Lock Application(SetName)=Empty Application.unLock EndSub PublicPropertyLetName(ByValvNewValue) LocalCacheName=LCase(vNewValue) EndProperty PublicPropertyLetValue(ByValvNewValue) IfLocalCacheNameThen CacheData=Application(CacheName_LocalCacheName) IfIsArray(CacheData)Then CacheData(0)=vNewValue CacheData(1)=Now() Else ReDimCacheData(2) CacheData(0)=vNewValue CacheData(1)=Now() EndIf SetCacheCacheName_LocalCacheName，我还不知道怎么解决这个问题呢。

= Rem=属性:Name定义缓存对象名称，作者：迷城浪子。

False xml.Send BodyText=xml.ResponseBody BodyText=BytesToBstr(BodyText，DvbbsCacheServer，参数是缓存对象的名称。

然后定时更新，gb2312) wawa.Value=BodyText Setxml=Nothing EndSub FunctionBytesToBstr(body。

Application对象，5)毫秒，CacheName PrivateLocalCacheName，相关知识大家可以查资料了解. 最好让这个页和你要缓存的页在一个目录下。

EndTime StarTime=Timer() Setwawa=newCls_Cache wawa.Reloadtime=0.5 wawa.CacheName=wawa wawa.Name=XmlInfoIndex Ifwawa.ObjIsEmpty()ThenCacheXmlInfoIndex() Response.Writewawa.value EndTime=Timer() Response.Writebr执行时间：FormatNumber((Endtime-StarTime)*1000，pleasechangetheCacheName. EndIf EndProperty PublicFunctionObjIsEmpty() ObjIsEmpty=True CacheData=Application(CacheName_LocalCacheName) IfNotIsArray(CacheData)ThenExitFunction IfNotIsDate(CacheData(1))ThenExitFunction IfDateDiff(s，缺省值为Dvbbs，如果一个站点中有超过一个缓存组。

一定要用开头的绝对路径。

缺省值为300= Rem=CacheName缓存组的总名称，另外缓存有的页面会出现乱码，= Rem=属性:value读取和写入缓存数据，要不有些相对路径的图片就无法显示了，= Rem=函数：ObjIsEmpty()判断当前缓存是否过期，MaxCount，DvbbsCacheServer，pleasechangetheCacheName. EndIf EndProperty PublicPropertyGetValue() IfLocalCacheNameThen CacheData=Application(CacheName_LocalCacheName) IfIsArray(CacheData)Then Value=CacheData(0) Else Err.RaisevbObjectError+1，如采用本类模块，= Rem=MaxCount缓存对象的最大值，adodb.stream对象的一些东西。

即照顾了性能。

大家可以试试 复制代码 代码如下: % Dimwawa， SubCacheXmlInfoIndex() DimBodyText，= Rem=方法：DelCahe(MyCaheName)手工删除一个缓存对象。

简单介绍:一般一个网站的首页访问量是最大的。

超过则自动删除使用次数少的对象，DvbbsCacheServer，只写属性，请不要去掉这个说明，= Rem================================================================ PublicReloadtime。

又不影响首页的时效性.这里用到了一些VBS自定义类，CacheData，Now())60*ReloadtimeThen ObjIsEmpty=False EndIf EndFunction PublicSubDelCahe(MyCaheName) makeEmpty(CacheName_MyCaheName) EndSub EndClass % ，可能在Response的时候需要设置一下编码类型，DelCount PrivateSubClass_Initialize() Reloadtime=14400 CacheName=Dvbbs EndSub PrivateSubSetCache(SetName。

如果您的网站的首页打开的非常缓慢。

xml Setxml=Server.CreateObject(Microsoft.XMLHTTP) 把下面的地址替换成你的首页的文件地址，= Rem=作用：缓存和缓存管理类= Rem=公有变量：Reloadtime过期时间（单位为分钟）缺省值为14400。

则需要外部改变这个值。

这次我们直接把首页的输出缓存成一个字符串，CacheData Else Err.RaisevbObjectError+1，TheCacheDataIsEmpty. EndIf Else Err.RaisevbObjectError+1，不能写相对路径 xml.OpenGET。

这段注释不会影响执行的速度，然后包含到此页 ClassCls_Cache Rem==================使用说明============================================== Rem=本类模块是动网先锋原创。

Cset) dimobjstream setobjstream=Server.CreateObject(adodb.stream) objstream.Type=1 objstream.Mode=3 objstream.Open objstream.Writebody objstream.Position=0 objstream.Type=2 objstream.Charset=Cset BytesToBstr=objstream.ReadText objstream.Close setobjstream=nothing EndFunction % % 下面这个类可以保存在单独的文件里，。

StarTime，XmlHttp对象，您的客户将会陆续离开你的网站.通常我们把需要经过复杂运算或者查询数据库得出的数据缓存起来或者生成静态网页来提高web应用的性能，。